home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / fd200.zip / FD_CONST.PAS < prev    next >
Pascal/Delphi Source File  |  1988-02-27  |  2KB  |  48 lines

  1. const
  2.      version = '2.00';
  3.  
  4. {    0 black          8  gray
  5.      1 blue           9  light blue
  6.      2 green          10 light green
  7.      3 cyan           11 light cyan
  8.      4 red            12 light red
  9.      5 magenta        13 light magenta
  10.      6 brown          14 yellow
  11.      7 white          15 bright white }
  12.  
  13.      brite_b  : integer =  7;
  14.      brite_f  : integer =  0;
  15.      norm_b   : integer =  0;
  16.      norm_f   : integer =  7;
  17.  
  18.      null = ^@;
  19.      numbers : set of char = ['0'..'9'];
  20.      nbr_days : array[1..12] of integer
  21.                   = (31,28,31,30,31,30,31,31,30,31,30,31);
  22.  
  23.      scrn_width = 80;
  24.      scrn_height = 24;
  25.      print_height = 23;
  26.  
  27.      default = 'FIELDDAY.LOG';
  28.  
  29.  
  30.     sections : array[0..14,0..4] of string[15] =
  31.  
  32. (('Alabama', 'llinois','Mrtime Nfld','Pacific','Tennessee'),
  33.  ('Alaska', 'Indiana','N. Carolina','Quebec','Utah'),
  34.  ('Alberta', 'Iowa','N. Florida','Rhode Island','Vermont'),
  35.  ('Arizona', 'Kansas','N. New Jersey','S. Carolina','Virginia'),
  36.  ('Arkansas', 'Kentucky','N. Texas','S. Florida','W. Mass.'),
  37.  ('B. Columbia', 'Los Angeles ','Nebraska','S. New Jersey','W. New York'),
  38.  ('Colorado', 'Louisiana','Nevada','S. Texas','W. Penn.'),
  39.  ('Connecticut', 'Maine','New Hampsh.','Sacr. Valley','W. Virginia'),
  40.  ('Delaware', 'Manitoba','New Mexico','San Diego','Washington'),
  41.  ('E. Mass.', 'Maryland D-C','North Dakota','San Fran.','West Indies'),
  42.  ('E. New York', 'Michigan','NYC Long Isl.','San Joaquin','Wisconsin'),
  43.  ('E. Penn.', 'Minnesota','Ohio','Santa Barb.','Wyoming'),
  44.  ('East Bay', 'Mississippi','Oklahoma','Santa Clara','OTHER'),
  45.  ('Georgia', 'Missouri','Ontario','Saskatchewan','OTHER'),
  46.  ('Idaho', 'Montana','Orange','South Dakota','OTHER'));
  47.  
  48.